Top 10k strings from Scan Demo (1992)(Salmi, Timo).bas in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX-81 & Sinclair QL - Various / Sinclair QL - Various (TOSEC-v2006-04-09) /
Back to the directory listing
1 460 p_valmis 1:STOP
1 440 PRINT"you reset the QL"
1 430 PRINT\"Are on, until"
1 420 AT 5,8:PRINT"a
1 410 AT 5,0:CLS 3
1 4070 END DEFine p_read
1 4060 END FOR i
1 4050 END FOR j
1 4040 READ des(i,j)
1 4030 FOR j=0 TO 7
1 4020 FOR i=0 TO 7
1 4010 LOCal i,j
1 4000 DEFine PROCedure p_read (des)
1 390 END FOR i
1 380 p_muistiin 96 :REMark ` box"
1 370 p_muistiin 126:REMark ~ '
1 360 p_muistiin 124:REMark |
1 350 p_muistiin 123:REMark {
1 340 p_muistiin 97 :REMark a a
1 330 p_muistiin 92 :REMark \
1 32260 END DEFine vsave
1 32250 PRINT#0,"Saved"!b$!"version"!ver1%;".";ver%
1 32240 LIST#3,32130 TO:CLOSE#3
1 32230 PRINT#3,"32120 ver1%=";ver1%;":ver2%=";ver%
1 32220 LIST#3,100 TO 32110
1 32210 PRINT#3,"4 :"
1 32200 PRINT#3,"3 REMark version"!ver1%;".";ver%
1 32190 PRINT#3,"2 REMark ";DAY$!DATE$
1 32180 PRINT#3,"1 REMark ";a$!"(c) Timo Salmi"
1 32170 DELETE b$:OPEN_NEW#3,b$:ver%=ver2%+1
1 32160 b$=d$(dr)&a$
1 32150 d$(5)="ram1_":d$(6)="ram2_"
1 32140 d$(3)="fdk1_":d$(4)="fdk2_"
1 32130 d$(1)="mdv1_":d$(2)="mdv2_"
1 32120 ver1%=2:ver2%=3
1 32110 BEEP 4000,12:STOP:END IF
1 32100 PRINT#0,DAY$!DATE$!"Not saved, set SDATE"
1 32090 IF b$<>1992 THEN
1 32080 b$=DATE$:b$=b$(1 TO 4)
1 32070 LOCal a$,b$,d$(6,5):a$="scandemo"
1 32060 DEFine PROCedure vsave(dr)
1 32050 vsave 6:STOP
1 32040 vsave 5:STOP
1 32030 vsave 4:STOP
1 32020 vsave 3:STOP
1 32010 vsave 2:STOP
1 32000 vsave 1:STOP
1 320 p_muistiin 91 :REMark [
1 31990 STOP
1 31110 END DEFine reset
1 31100 SCALE 100,0,0:FILL 0
1 31090 PAPER#0,0:INK#0,7-3*(i=0):INK 7:CLS
1 31080 FOR il=0,1,2:CSIZE#il,(i=4)+2*(i=8),0:END FOR il
1 31070 PAPER 2*(i=8):BORDER (i=4),4*(i=4)
1 31060 WINDOW 448+8*(i=4),200+2*(i=4),32-4*(i=4),16-(i=4)
1 31050 WINDOW#0,448,40-(i=4),32,216+(i=4)
1 31040 PAPER#2,1:INK#2,7
1 31030 OPEN#2,con_:WINDOW#2,448,200,32,16
1 31020 WINDOW 513,256,0,0:PAPER 0:CLS
1 31010 LOCal il:MODE i
1 31000 DEFine PROCedure reset(i)
1 310 RESTORE 15010
1 3040 END DEFine p_muistiin
1 3030 p_pokechar chr,des
1 3020 p_read des
1 30100 END DEFine p_valmis
1 3010 LOCal des(7,7)
1 30090 PRINT#ch,!s!"sec"
1 30080 IF m>0 THEN PRINT#ch,!m!"min";
1 30070 IF t>0 THEN PRINT#ch,!t!"h";
1 30060 m=INT(s/60):s=s-60*m
1 30050 t=INT(s/3600):s=s-t*3600
1 30040 s=DATE-aika
1 30030 PRINT#ch,\"READY, elapsed";
1 30020 LOCal t,m,s
1 30010 REMark 12.10.85
1 30000 DEFine PROCedure p_valmis (ch)
1 3000 DEFine PROCedure p_muistiin(chr)
1 3 REMark version 2.3
1 290 REMark END IF
1 280 POKE_L char_reg,user_start
1 270 p_transfer
1 260 REMark IF rom_start=osoite THEN
1 250 IF VER$="JS":osoite=44442
1 240 IF VER$="JM":osoite=41410
1 230 rom_start=PEEK_L(char_reg)
1 220 char_reg=f_winvars((i))+42
1 210 FOR i=0 TO 2
1 2020 END DEFine f_winvars
1 20140 END DEFine p_alku
1 20130 CLS#0
1 20120 PAPER#0,0:INK#0,7:CSIZE#0,2,0
1 20110 WINDOW#0,448,40,32,216
1 20100 REMark PRINT#1,DAY$!DATE$
1 2010 RETurn PEEK_L(PEEK_L(163960)+4*chan%)
1 20090 pv$=DATE$:vsi=pv$(1 TO 4)
1 20080 PRINT ohj$\ots1$\ots2$
1 20070 ohj$=ohj$&", TIMO SALMI "&tpvm$
1 20060 PAPER 2:INK 7:CLS
1 20050 FLASH 0:OVER 0
1 20040 WINDOW 448,200,32,16
1 20030 WINDOW 513,256,0,0:PAPER 0:CLS
1 20020 MODE 8:CSIZE 2,0
1 20010 LOCal pv$,vsi
1 20000 DEFine PROCedure p_alku(ohj$,tpvm$,ots1$,ots2$)
1 2000 DEFine FuNction f_winvars(chan%)
1 2 REMark Sat 1992 Mar 07 18:42:51
1 190 PAPER#2,1
1 180 PRINT#2,"PLEASE WAIT (n. 1 min) ..."
1 170 PRINT#2,"Characters: a
1 160 PAPER#2,2:AT#2,4,0
1 15680 DATA 0,1,1,1,1,1,0,0
1 15670 DATA 0,1,1,1,1,1,0,0
1 15660 DATA 0,1,1,1,1,1,0,0
1 15650 DATA 0,1,1,1,1,1,0,0
1 15640 DATA 0,1,1,1,1,1,0,0
1 15630 DATA 0,1,1,1,1,1,0,0
1 15620 DATA 0,1,1,1,1,1,0,0
1 15610 DATA 0,1,1,1,1,1,0,0
1 15600 REMark ` to box
1 15580 DATA 0,0,0,0,0,0,0,0
1 15570 DATA 0,0,0,0,0,0,0,0
1 15560 DATA 0,0,0,0,0,0,0,0
1 15550 DATA 0,0,0,0,0,0,0,0
1 15540 DATA 0,0,0,0,0,0,0,0
1 15530 DATA 0,0,0,0,0,0,0,0
1 15520 DATA 0,0,0,0,0,0,0,0
1 15510 DATA 0,1,0,0,0,0,0,0
1 15500 REMark ~ to '
1 15480 DATA 0,0,0,0,0,0,0,0
1 15470 DATA 0,0,1,1,1,0,0,0
1 15460 DATA 0,1,0,0,0,1,0,0
1 15450 DATA 0,1,0,0,0,1,0,0
1 15440 DATA 0,1,0,0,0,1,0,0
1 15430 DATA 0,0,1,1,1,0,0,0
1 15420 DATA 0,0,0,0,0,0,0,0
1 15410 DATA 0,1,0,0,0,1,0,0
1 15400 REMark
1 15380 DATA 0,0,0,0,0,0,0,0
1 15370 DATA 0,1,1,1,1,1,0,0
1 15360 DATA 0,1,0,0,0,1,0,0
1 15350 DATA 0,0,1,1,1,1,0,0
1 15340 DATA 0,0,0,0,0,1,0,0
1 15330 DATA 0,0,1,1,1,0,0,0
1 15320 DATA 0,0,0,0,0,0,0,0
1 15310 DATA 0,0,1,0,0,1,0,0
1 15300 REMark
1 15280 DATA 0,0,0,0,0,0,0,0
1 15270 DATA 0,1,1,1,1,1,0,0
1 15260 DATA 0,1,0,0,0,1,0,0
1 15250 DATA 0,0,1,1,1,1,0,0
1 15240 DATA 0,0,0,0,0,1,0,0
1 15230 DATA 0,0,1,1,1,0,0,0
1 15220 DATA 0,0,0,0,0,0,0,0
1 15210 DATA 0,0,0,0,0,0,0,0
1 15200 REMark a
1 15180 DATA 0,0,0,0,0,0,0,0
1 15170 DATA 0,0,1,1,1,0,0,0
1 15160 DATA 0,1,0,0,0,1,0,0
1 15150 DATA 0,1,0,0,0,1,0,0
1 15140 DATA 0,1,0,0,0,1,0,0
1 15130 DATA 0,1,0,0,0,1,0,0
1 15120 DATA 0,0,1,1,1,0,0,0
1 15110 DATA 0,1,0,0,0,1,0,0
1 15100 REMark
1 15080 DATA 0,0,0,0,0,0,0,0
1 15070 DATA 0,1,0,0,0,1,0,0
1 15060 DATA 0,1,0,0,0,1,0,0
1 15050 DATA 0,1,1,1,1,1,0,0
1 15040 DATA 0,1,0,0,0,1,0,0
1 15030 DATA 0,0,1,0,1,0,0,0
1 15020 DATA 0,0,0,1,0,0,0,0
1 15010 DATA 0,1,0,0,0,1,0,0
1 15000 REMark
1 14180 END DEFine p_pokechar
1 14170 END FOR i
1 14160 POKE char_start+(chr-32)*9+i,byte
1 14150 END FOR j
1 14140 byte=byte+2^(7-j)*(des(i,j)=1)
1 14130 FOR j=0 TO 7
1 14120 byte=0
1 14110 FOR i=0 TO 7
1 14100 LOCal i,j,byte
1 14090 DEFine PROCedure p_pokechar(chr,des)
1 14070 END DEFine p_transfer
1 14060 END FOR i
1 14050 POKE_L user_start+i,PEEK_L(rom_start+i)
1 14040 FOR i=0 TO 875 STEP 4
1 14030 char_start=user_start+11
1 14020 user_start=ALCHP(875)
1 14010 LOCal i
1 14000 DEFine PROCedure p_transfer
1 140 p_alku("SCANDEMO"),("01.07.87"),(ots1$),(ots2$)
1 130 ots2$="straight from the keyboard"
1 120 ots1$="Scandinavian characters"
1 110 PAPER 2:CLS
1 100 aika=DATE
1 1 REMark scandemo (c) Timo Salmi